home *** CD-ROM | disk | FTP | other *** search
/ Ultra Mac Games 1 & 2 / UltraMacGames1.iso / Adventure / Homicide Investigation 1.0 / card_3631.txt < prev    next >
Text File  |  1990-07-15  |  2KB  |  92 lines
  1. -- card: 3631 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 4306
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on showStatement
  8.   global victPossessive, crimCard, setAge
  9.  
  10.   -- Prevent user from getting a second age range
  11.   if setAge is true then exit showStatement
  12.  
  13.   put field "Char Age" of card crimCard into crimAge
  14.  
  15.   if the number of this card = crimCard then
  16.     -- if criminal, shift age range to avoid own age
  17.     put 3 into shiftFactor
  18.     if crimAge = 35 or crimAge = 40 then put 2 into shiftFactor
  19.     put random( shiftFactor ) into ageOffset
  20.     multiply ageOffset by 5
  21.     if crimAge < 40
  22.     then put crimAge + ageOffset into minAge
  23.   else put crimAge - ageOffset - 10 into minAge
  24. else
  25.   -- pick minimum age of 10 year range that inclues criminal's age
  26.   put random(3) - 1 into ageOffset
  27.   multiply ageOffset by 5
  28.   put crimAge - ageOffset into minAge
  29. end if
  30. put minAge + 10 into maxAge
  31. put true into setAge
  32.  
  33. put "Wasn't it awful? For something like that to " into myStatement
  34. put "happen to one of my own customers. If you " after myStatement
  35. put "ask me, you should question that trashy " after mystatement
  36. put "friend of " & victPossessive & ". I can't " after myStatement
  37. put "give you a name but as to the age I'd " after myStatement
  38. put "say it would be in the " & minAge & " to " after myStatement
  39. put maxAge & " range." after myStatement
  40. put myStatement into field "Statement"
  41. end showStatement
  42.  
  43. on hideStatement
  44.   global setAge
  45.   put false into setAge
  46.   put empty into field "Statement"
  47. end hideStatement
  48.  
  49.  
  50. -- part contents for background part 10
  51. ----- text -----
  52. Willie Snippet
  53.  
  54. -- part contents for background part 11
  55. ----- text -----
  56. male
  57.  
  58. -- part contents for background part 12
  59. ----- text -----
  60. 30
  61.  
  62. -- part contents for background part 13
  63. ----- text -----
  64. slim
  65.  
  66. -- part contents for background part 14
  67. ----- text -----
  68. black
  69.  
  70. -- part contents for background part 15
  71. ----- text -----
  72. long
  73.  
  74. -- part contents for background part 17
  75. ----- text -----
  76. brown
  77.  
  78. -- part contents for background part 19
  79. ----- text -----
  80. hair stylist
  81.  
  82. -- part contents for background part 20
  83. ----- text -----
  84. beauty salon
  85.  
  86. -- part contents for background part 21
  87. ----- text -----
  88. eyeglasses, cologne
  89.  
  90. -- part contents for background part 23
  91. ----- text -----
  92. neat, generous